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TSTIOX — 
Table of 

4- 

6- 

7- 

8- 

9- 
10- 
11- 
12- 
13- 
15- 
16- 



' Relocatable 
contents 

1 ININT 
TTINPT 
IRINGP 
SILFET 
TTRSAV 
CIPFRK 
GOTXOF 
GOTXON 
TRNSTR 
NEDGHR 
CDORTN 
CDIRTN 
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— Terminal input interrupt entry point 
-- Process received character 

— Store character into silo buffer 

— Fetch a character from the input silo 

— Save registers for TT input interrupt 

— Fork level input character processing 
-~ Process received XDFF character 

— Process received XON character 

— Start line transmitter 



w t J. V cr I 



— Get next char for device 
■- Clock driven output character processinq 

— Clock driven input character processing 
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i 

i 
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TSTIOX - 


- Relo 


1 




2 


000000 


3 
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19 
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28 
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TITLE 


TSTIGX - 


PSECT 


TSTIOX 


ENABL 


LC 


DSABL 


GEL 






^ » >4 » 
I- U U IT 



I 



TSTIOX contains the portion of the terminal service code that 
is linked as an overiaii and relocated over TSINIT when the 
system is started. 



c 



w w f^ vj , ... y . , w 



(c) 1984. 1985. 
S&H Computer Systems* Inc. 
Nashville, Tennessee USA 

GiObaj. uefinitions 

. GLDBL TSTIOX 

Oiobal references 

. GLOBL OVRHC, CL*L1X, LCXTBL 

. GLOBL NEDCDO, NEDCDI , LCLUNT, LINIR, LCDTYP, CTRLS, LOTSIZ, LOTBUF 

. 6L0BL C TRLQ, CDX*VH, LMSGBF, L.OTPNT, CDSXOF, CDSXON, CLTIMR, LXCL 

(5L0BL LNMAP, OTRASZ, CDOFLG, LHIRBS, LHIRBE, LHIRBB, INTPRI, LHIRBP 

. GLOBL iiMITFL> LHIRBC, LHIRBG, LHIRBA, *DETCH, C0*8BT. *HARD, *CTRLS 

. GLOBL CDX«DH. FRMERR. 'SINIT. *SXON, LSW» LBW7, S*0 1 W f 

. GLOBL *IITIM, *SXDFF, LSW5, *aBIT. LITIME, S**RUN, fDHCDO, LSW3 

. GLOBL LOTEND, SB«LNK, *SOTFN, NMUMB, *PAGE, DHTIMR, S*OTLO, LSTHL 

. GLOBL S*OTFN> *NDICP. INTEN, FP*CDI, MBFFLG, FORK, *RBRK, CDIFLG 

. GLOBL LSW2, SNMSHD, CL*OPT> NEDSOT, *ICPFK, *DEAD, NEDCLO, SB*PNT 

. GLOBL LNPRIM, LSWIO, CDSTRT, fHISTP, LSTATE, FASTIN, CDSTOP 

. GLOBL CO*BNO, CO*BNI> LOTSPC, *DNICP> PSW, KPAR6, LTTPAR 

. GLOBL LINNUM, RDINT, RSR, RCVDON, RBR, MUXNUM, MXRBUF, MXLNT 



t 

I 

r t 






i 
i 



TSTIOX 
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I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



Macro definitions: 

nicahla •ir>+-OT*-riin+:c 

. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BIC e#INTPRI,@#PSW 

. ENDM ENABL 



iDisable interrupts 



Enable interrupts 



Call a routine in a system overlay 

. MACRO OCALL ENTADD 

.IF B, ENTADD 

.ERROR ; OCALL without entry address 
. ENDC 

CALL ©#OVRHC 

WORD ENTADD 

ENDM OCALL 



The TTMAP and 
terminal chara 
register are p 
UNMAP or UNMAP 
Rl must contai 
are being acce 
The difference 
macros is that 
used from with 
to be running 
The TTMAP and 
used in sectio 



TTMAPX macros are used to map kernel-mode par6 to the 

cter buffer area. The previous contents of par6 map 

ushed on the stack and may be restored by using the 

X macros. 

n the line index number of the line whose buffers 

ssed. 
between the TTMAP-UNMAP macros and the TTMAPX-UNMAPX 
the X-versions are more efficient but may only be 

in interrupt service routines where we are guaranteed 

on the system stack. 

UNMAP versions of the macros must only be 

ns of code where the interrupts are disabled. 



. MACRO TTMAPX 

MOV LTTPAR<R1>.@#KPAR6 

. ENDM TTMAPX 



. MACRO UNMAP X 

. ENDM UNMAP X 

. MACRO TTMAP 

MOV @#KPAR6> MAPHLD 

MOV LTTP AR ( R 1 ) , ©#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, @#KPAR6 

. ENDM UNMAP 



i 
i 
f 



c 

f 

f 

c 
I 
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i 
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t 

i 
t 



TSTIOX 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 000002 

11 000004 

12 000006 

14 000012 

15 000014 

16 000016 

17 000020 

18 000022 
19 

20 

21 

22 000024 

23 

24 000026 

25 



000000 077167 



000030 
000172 
000602 
000752 
001270 
001346 
001776 
002106 
001752 



000000 

000 



Module header. This data must be the first data in this segment 
Overlay segment ID word 
TSTIOX: . RAD50 /TIO/ 

Table of offsets to entry points in this module 



. WORD 
. WORD 
. WORD 

. WORD 
. WORD 
. WORD 
. WORD 
. WORD 

Data areas 

1APHLD: . WORD 

T'i Ir'HK. . BYTE 
. EVEN 



ININT-TSTIOX 

TTINPT-TSTIOX 

SILFET-TSTIOX 

TTRSAV--T3TI0X 

TRNSTR-TSTIOX 

NEDCHR-TSTIOX 

CDORTN-TSTIOX 

CDIRTN-TSTIOX 

SNDFRE-TSTIOX 



O 





j Used by TTHAP macro 

1 Hon zero ==> Request fork level input process 



i 
I 
I 
I 
c 
I 
c 
f 
( 

f 
i 
C 
I 

< 

i 
i 
C 



TSTIOX 
ININT 
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Terminal input interrupt entry point 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



000030 



000030 00456: 



000034 
000040 



000042 
000046 
000050 
000056 
000064 
000066 
000072 
000100 
000104 
000106 
000114 



000116 
000120 
000124 
000130 
000132 
000136 
000140 
000142 
000146 
000150 
000154 
000156 
000160 
000164 
000166 



113704 
001426 



105037 
006304 
042774 
032774 
001410 
017405 
052774 
004767 
000431 
052774 
000425 



010346 
1 1 3703 
105037 
006303 
017305 
002013 
010504 
042704 
000304 
066304 
111404 
001765 
004767 
000762 
012603 



000170 000207 



. SB ! ! L. 



i N i N 1 



— Terminal input interrupt entry point 



i Receiver interrupt routine - enter with interrupts disabled 
ININT: 



000716 



Save registers RO, Rl.- R4, and R5. 

JSR R5, TTRSAV ; Save registers 

R0> Rl, R4 and R5 stra now available. 
Determine which line interrupted. 



ooooooe 



MOVE @#LINNUM.. R4 
BEQ 1* 



; Get interrupting line number 
J Branch if mux line interrupted 



Interrupt came from a DI.-11 line 



OOOOOOG 

ooooooe 

0000000 

0000000 
OOOOOOG 
000066 



ooooooo 

OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 3*: 



CLRB 


e#LINNUM 


ASL 


R4 


BIC 


#RDINT, «RSR(R4.) 


BIT 


#RCVD0N>@RSR(R4) 


BEQ 


3* 


MOV 


@RBR(R4),R5 


BIS 


#RDINT,@RSR<R4) 


GALL 


TTINPT 


BR 


9* 


BIS 


#RDINT, €RSR<R4) 


BR 


9* 



Reset line number cell 

Get TSX line number index 

Drop DLll interrupt enable 

Did we receive a character? 

Branch if not 

Get receiver buffer register info 

Reenable DLll interrupt 

Process the character 

Finished 

Reenable DLll interrupts 



Interrupt came from a DZll or DHll line 



OOOOOOG 
OOOOOOG 

OOOOOOG 



1 70377 
OOOOOOG 

000006 



1«: 



?*: 



4*: 

Finished 
9*: RETURN 



MOV 


R3, -(SP) 


Get anot 


MDVB 


@#MUXNUM, R3 


Get MUX 


CLRB 


e#MUXNUM 


Reset ce 


ASL 


R3 


Convert 


MOV 


@MXRBUF<R3),R5 


Get MUX 


BGE 


4« 


Br if mu 


MOV 


R5, R4 


Get rece 


BIC 


#'^C<7400>, R4 


Clear al 


SWAB 


R4 


Move to 


ADD 


MXLNT<R3)> R4 


Get poin 


MOVE 


<R4),R4 


Get TSX 


BEQ 


2* 


Br if li 


CALL 


TTINPT 


Process 


BR 


2* 


Go see i 


MOV 


(SP)+> R3 





;her work register for mux 

number 
111 

to word table index 

receiver buffer register 
IX silo is empty 
•iver buffer info 

1 but line # 

low order byte 
iter into map table 

1 ine # 
Lne not genned into TSX 

the received character 
,f more chars in mux silo 



} Return from interrupt 
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TSTIOX 




TTINPT 
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7 
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10 
11 
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13 
14 




15 




16 
17 
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20 




21 




22 

23 
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25 
26 




27 




28 




29 




30 




31 




32 




33 




34 
35 




36 




37 
38 




39 




40 




41 
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44 




45 
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52 




53 
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55 




56 




57 
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Process received character 



ai3 I .1 !_ 



rrou t?»s I 



eceived charac usr 



TTINPT is called each time a character is received from a serial line. 

This routine stores the character into the initial ring buffer for the line 

and then requests a . FORK to trigger the actual input character processing. 

Inputs: 
R4 = Index number of interrupting line. 
R5 = Received character and status flags in DLll format. 



000172 010046 
000174 010346 



000176 042764 OOOOOOG OOOOOOG 



000204 032705 OOOOOOG 

000210 001404 

000212 052764 OOOOOOG OOOOOOG 

000220 000456 



TTINPT: mv 
MOV 



RO, -<SP) 
R3, -<SP) 



Reset input interrupt timer for the line 

BIC #*IITIM» LSW5(R4)i Reset input interrupt timer for line 

See if a framing error was detected 

BIT #FRMERR* R5 J Was a framing error detected? 

BEG 7* i Br if not 

BIS #*RBRK, LSW10(H4>; Set flag saying break was detected 

BR 24 ;Skip over special character tests 

See if me should mask character to 7 bits 



000222 042705 177400 7$: 

000226 016403 OOOOOOG 

000232 002411 

000234 032763 OOOOOOG OOOOOOG 

000242 001045 

000244 032763 OOOOOOG OOOOOOG 

000252 001007 

000254 000404 

000256 032764 OOOOOOG OOOOOOG 6$: 

000264 001002 

000266 042705 177600 4*: 



BIC #-'-C377j R5 iMask character to 8 bits 

MOV LCLUNT(R4)> R3 >Ib this line being used by CL? 

BLT 6* iBr if not 

BIT #CO*BNI, CL*0PT(R3)i Binary input mode? 

BNE 2* ; Br if yes — Accept all characters 

BIT #CO*SBT. CL*0PT(R3)i Is CL unit set for 8 bit support? 

BNE 3* ; Br if 8 bit mode 

BR 4* 

BIT #*aBIT, LSW2<R4) ; Is line set to receive 8-bit chars? 

BNE 3* i Br if yes 

BIC #•'^0177/ R5 ;Mask out all but 7 bits of character 



Ignore nulls unless this is a CL line in binary input mode 



000272 105705 
000274 001466 



3$: 



TSTB 
BEQ 



R5 
9* 



; Is the character null? 

/Ignore nulls unless in binary input mode 



See if character is ctrl~S <XOFF) 



000276 120527 OOOOOOG 

000302 001011 

000304 005703 

000306 002004 

000310 032764 OOOOOOG OOOOOOG 

000316 001417 

000320 004767 000670 10*: 

000324 000452 



CMPB 


R5, #CTRLS 


BNE 


1* 


TST 


R3 


BGE 


10$ 


BIT 


#*PAGE, LSW2<R4) 


BEQ 


2* 


CALL 


GOTXOF 


BR 


9* 



Is character ctrl -S? 

Br if not 

Is line being used by CL? 

Br if yes 

Is ctrl-S processing tuanted for line? 

Br if not — treat ctrl-S like normal char 

Process the ctrl~S character 

Finished with character 



000326 120527 OOOOOOG 



See if character is ctrl--Q <XON) 
1*: CMPB R5, ttCTRLQ J Is character ctrl-Q? 



I 

f 
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TSTIOX — Relocatable terminal MACRO V05. 05 
TTINPT -— Process received character 



i 
i 
i 
< 
I 
I 
( 
i 
I 
( 
f 

i 

i 



59 000334 

60 000336 

61 000340 

62 000346 

63 000350 

64 000354 
65 

66 

67 

68 000356 

69 

70 

71 

72 000362 

73 000370 

74 000372 

75 000400 

76 000404 

77 000410 

78 000412 

79 000420 

80 000422 

81 000430 

82 000432 

83 000436 

84 000440 

85 000446 
86 

87 
88 

89 000452 

90 000454 

91 000456 



005703 
002004 
032764 
001403 
004767 
000436 



OOOOOOG OOOOOOG 
000666 



11*: 
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BNE d^ i Br if not 

TST R3 i Is line being used by CL? 

BGE 11* iBr if yes 

BIT #«PAGE, LSW2<R4) ils ctrl-Q processing wanted for line? 

BEQ 2* ; Br if not — treat ctrl-Q like normal char 

CALL GOTXON i Process the ctrl-Q character 

BR 9* 



004767 000076 



i Move character into silo buffer for this line 

i 

2*: CALL IRINOP ; Store character into silo buffer 

Set flag requesting fork-level processing for this line 



032764 
001030 
052764 
005237 
005727 
001020 
032764 
001014 
032764 

f-<. .*-\ t y*t * .* \ 

105737 
001005 
052764 
105267 



012603 
012600 
000207 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
177354 



OOOOOOG 
OOOOOOG 

OOOOOOG 



BIT 

BNE 

BIS 

INC 

TST 

BNE 

BIT 

BNfr. 

BIT 

BNE 

TSTB 

BNE 

BIS 

INCB 

Fini shed 



9*: 



MOV 
MOV 
RETURN 



#*NDICP> LSW10(R4) .: Have we already requested input processing? 

9* ; Br if yes 

#*NDICP/ LSW10<R4)i Set flag saying input char processing needed 



©#NEDCDI 

#FASTIN 

9* 

#*DNICP>LSW10(R4 

9* 

#*ICPFK> LSW10<R4 

9* 

€#INITFL 

9* 

#*DNICPi LSW1Q<R4 

TTIFRK 



; Say input character processing needed 

; Are we to allow non-clock driven forks? 

; Br if not 

);Have we already done a fork this clock cycle 

! Br If yes — Only do fork once per clock cycl 

);l5 fork processing already pending for line? 

; Br if yes 

ils system initialization complete? 

i Br if not — Don't fork till init complete 

);Set flag saying we forked during cycle 

i Request fork processing 



<SP)+, R3 
<SP)+, RO 



I 
< 
I 

i 

i 
I 
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t 
c 
i 



TSTIOX — Relocatable terminal 
IRINGP — Store character into 



MACRO V05. 05 
>ilo buffer 
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3 
4 
5 
6 
7 
8 
9 

10 000460 

11 000462 
12 

13 
14 

15 000464 

16 000470 

17 000472 

18 000476 

19 000500 

20 000504 

21 000506 

22 000512 

23 000516 
24 

25 
26 

27 000522 

28 000530 

29 000532 

30 000534 

31 000542 

32 000544 

33 000550 

34 000552 

35 000560 

36 000562 

37 000564 

38 000570 
39 

40 
41 

42 000574 

43 000576 

44 000600 



010146 
010346 



005764 
001425 
016403 
110523 
020364 
103402 
016403 
010364 
005364 



126464 
101021 
001404 
032764 
001014 
016403 
002404 
032763 
001005 
010401 
016103 
004773 



012603 
012601 
000207 



IRINGP is called to store a received character into the input 
siio buffer for a line. 

Inputs: 
R4 = Line index number. 
R5 = Character to be stored. 



IRINGP: MOV 
MOV 



Rl. -(SP) 
R3, -<SP) 



Store character into si 



buffer 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

000001 OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



1$; 



TST LHIRBS(R4) 

BEQ 2* 

MOV LHIRBP<R4)>R3 

MOVE R5, <R3) + 

CMP R3, LHIRBE(R4) 

BLO 1* 

MOV LHIRBB(R4),R3 

MOV R3, LHIRBP(R4) 

DEC LHIRBS<R4) 



Any space remaining in ring buffer? 

Br if not 

Get pointer to next pos in ring buffer 

Store char into ring buffer 

Have uiB gone past the end of the buffer? 

Br if not 

Mrap around to the front of the buffer 

Save pointer for next character 

One less free space available 



?$: 



4*: 



If buffer is nearly fullj send an XOFF to try to stop transmission 



i Br if not 

>Aluiays send ctrl-S at set point 
i Send ctrl-S on every other char if < set pt 
; Br if not time to send ctrl~S 
i Is this line a CL unit? 
i Br if not 
J3)iAre lue in binary output mode? 

Br if yes — Cannot send XOFF 

Get line index number to Rl 

Get hardiitare device type index 

Call routine to stuff an XOFF character 



3*: 



CMPB 


LHIRBS<R4),LH 


BHI 


3* 


BEQ 


2* 


BIT 


#1,LHIRBS<R4) 


BNE 


3* 


MOV 


LCLUNT(R4),R3 


BLT 


4* 


BIT 


#CO*BNO, CL*OP 


BNE 


3* 


MOV 


R4, Rl 


MOV 


LCDTYP<R1),R3 


CALL 


@CDSX0F(R3) 


Finished 




MOV 


<SP)+, R3 


MOV 


(SP)+,R1 


RETURN 
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TSTIOX - 
SILFET - 

X 
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4 
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6 
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- Fetch a character from the input silo 



F^age 7 



000602 
000604 



000606 
000614 



23 

24 000616 

25 000622 

26 000624 

27 000630 

28 000632 

29 000636 

30 000642 
31 

32 
33 
34 

35 000646 

36 000654 

37 000656 

38 000662 

39 000666 

40 000672 

41 000674 

42 000702 

43 000706 
44 

45 
46 

47 000712 

48 000716 

49 000720 

50 000722 

51 000724 

52 000726 

53 000730 

54 000732 

55 000734 
56 

57 



010346 
005046 



026161 
001452 



016103 
112316 
020361 
103402 
016103 
010361 
005261 



032761 
001416 
016103 
166103 
120361 
101007 
042761 
016100 
004770 



016103 
001407 
012300 
001405 
000300 
121600 
001373 
000300 
110016 



0000000 0000000 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
00000 IG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



. 3B7TL SILFET — Fetch a character from the input silo 

SILFET is called to fetch the next character from the input silo. 

Inputs: 
Rl = Line index number. 



Outputs: 
C-flag cleared 

RO = Character gotten from silo. 



> A character is available. 



SILFET; MOV 
CLR 



R3, -(SP) 
-<SP) 



iWill restore this into RO 

See if there are any characters in the silo 

CMP LHIRBS<R1), LHIRBA(Rl)i Are there any chars in the silo? 
BEQ B* J Br if silo is empty 

There are characters in the silo. 

Get the next character out of the silo. 



1*: 



MOV LHIRB0<Ri>,R3 

MOVE (R3)+, (SP) 

CMP R3, LHIRBE(Rl) 

BLO 1* 

MOV LHIRBB<R1),R3 

MOV R3, LHIRBG<R1> 

INC LHIRBS<R1) 



i Get pointer to next character 

i Fetch char from silo 

;Oid ute go beyond end of silo? 

• Br if not 

; Wrap around to front of silo 

; Save new pointer into silo 

i Say there is another free space in silo 



If me have transmitted an XOFF because the silo was nearly full* 
transmit an XON now if we have nearly emptied the silo. 

BIT #*HISTP, LSW10<Rl)i Have we transmitted an XOFF? 

BEQ 2* i Br if not 

MOV LHIRBA<R1), R3 i Get total silo size 

SUB LHIRBS<R1 ). R3 ;Compute # chars in silo now 

CMPB R3, LHIRBC+KRl) i Is it time to send XON? 

BHI 2* J Br if not 

BIC #«HISTP, LSW10<Rl)j Say XOFF has been cancelled 

MOV LCDTYP(R1),R0 ; Get device type code 

CALL eCDSXON<RO) ;Call routine to transmit an XON 

See if we need to translate this character 



2*: 
4*: 



MOV 


LCXTBL(R1).R3 


BEQ 


3* 


MOV 


<R3)+, RO 


BEQ 


3* 


SWAB 


RO 


CMPB 


(SP),RO 


BNE 


4* 


SWAB 


RO 


MOVE 


RO, <SP) 



Get pointer to translation table 

Br if there is no translation table 

Get next entry from translation table 

Br if hit end of table 

Get external char to low order byte 

Does this match received character? 

Loop if not 

Get internal char to low order byte 

Replace external char with internal char 



We got a character 



I 

i 
I 
f 

< 
i 
t 

i 

i 
i 
i 
f 

i 

i 
t 

4 

C 
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59 000736 000241 

60 000740 000401 
61 

62 

63 

64 000742 000261 

65 

66 

67 

68 000744 012600 

69 000746 012603 

70 000750 000207 



3*: 



CLC 
BR 



Signal that we got a character 



9* 



There are no characters available 



B*: SEC 

i 

i Finished 

9*: MOV <SP)+, RO 
MOV (SP)+, R3 
RETURN 



Signal that no characters are available 



I 
I 

€ 

i 

i 
i 

i 
i 

€ 

i 

i 
i 
I 
t 



TSTIOX - 
TTRSAV — 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
2<b 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Relocatable terminal 
Save registers for TT 



MACRO V05. 05 Tuesday 17-Jan-89 14:11 Page S 
input interrupt 



000752 



000752 
000754 
000756 
00Q760 



010046 
010146 
010446 
013746 OOOOOOe 



000764 005037 0000000 



000770 004715 



000772 
000776 
001000 
001002 
001004 



012637 
012604 
012601 
012600 
012605 



0000000 



001006 
001012 
001014 
001020 
001024 
001026 



105767 
001420 
105067 
105737 
001013 
105237 



177014 

177006 
0000000 

OOOOOOG 



3BTTL I I kSAv 



nave registers for TT input interrupt- 



TTRSAV should be called from all terminal input interrupt reception 
routines. It saves reoisters R0# RIj and R4 and sets ud the stack 
so that the RTI instruction that (uould normally return from the 
interrupt will return to this routine to restore the registers before 
returning from the interrupt. 

This is done to allou) us to defer doing a . INTEN until later in the 
character processing. 

Form of call: 

JSR R5, TTRSAV 

Inputs; 
Interrupted PC and PSW must be on the top of the stack at the 
time that the JSR is executed. 

TTRSAV; 

On entry/ the following items are on the stack; R5, PC* and PSW. 
Push RO. Rl, and R4. 

MOV RO, -(SP) 

MOV R 1 , - < SP ) 

MOV R4,-(SP) 

MOV @#INTPR I f — ( SP ) i Save current running interrupt priority 

Say our running interrupt priority is 7 

CLR @#INTPRI i Say running priority = 7 

Now call calling routine as a coroutine 

CALL <R5) iCall calling routine as a coroutine 

Finished character input interrupt processing. 
Restore values we pushed. 

MOV <SP)+, e#INTPRI i Restore running interrupt priority 

MOV <SP)+, R4 

MOV <SP>+, Rl 

MOV <SP>+, RO 

MOV <SP>+, R5 

At this pointi only the interrupt PC and PSW are left on the stack. 
See if we need to queue a fork request for input character processing. 

i Do we need to queue a fork request? 

i Br if not 

; Clear fork request flag 

; Is character processing already active? 

; Br if yes 

; Say we are doing input processing now 

Do a . INTEN as if we were accepting the interrupt initially 
(The stack is set up as if an interrupt just occurred) 



TSTB 


TTIFRK 


BEQ 


9« 


CLRB 


TTIFRK 


TSTB 


e#CDIFLG 


BNE 


9* 


INCB 


@#CDIFLG 



i 
f 
< 

f 

I 
f 
( 

4 
f 
t 
f 

i 
i 
4 
f 

< 
i 



i 
I 

i 



i 
( 
i 
I 

f 

► 

c 

\ 

I 
< 
I 
I 
I 
i 
i 
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TTRSAV — Save registers for TT input interrupt 



59 001032 004537 OOOOOOG 

60 001036 000100 
61 

62 
63 

64 001040 004537 OOOOOOG 

65 001044 OOOOOOG 

66 001046 004767 000004 

67 001052 000207 
68 

69 
70 
71 001054 000002 



JSR 
. WORD 



R5, @#INTEN 
100 



i Bo Inten 
; Priority 



Nom fork and call TT input processing routine 



9*: 



JSR 


R5, @#FORK 


. WORD 


FP*CDI 


CALL 


CIPFRK 


RETURN 




Return from 


interrupt 


RTI 





i Do . FORK 

> Fork priority 

iCall TT input processing routine 

.: Return to inten routine which exits from int 



; Return from interrupt 



I 

f 



4 
C 
€ 
I 

C 
( 

( 

i 

i 



i 
t 
I 
c 



f 

f 



( 
i 
c 

f 
i 
f 
( 

I 

( 
i 



TSTIOX 
CIPFRK 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2b 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
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Fork level input character processing 



. SBTTL CIPFRK — Fork level input character processing 
CIPFRK is called at fork level to do input character processing. 



001056 010146 
001060 010446 



001062 012701 000002 



CIPFRK: MOV 

nov 



R 1 , - ( SP ) 
R4, -(SP) 



Begin loop to service each line 

ivtruJ a-) c3 1 

See if this routine needs input character processing 






001066 032761 

001074 001435 
001076 

001104 032761 

001112 001423 

001114 032761 

001122 001017 



OOOOOOG OOOOOOG 1*: 

0000000 OOOOOOG 
OOOOOOG OOOOOOG 



BIT 

BEQ 

DISABL 

BIT 

BEQ 

BIT 

BNE 



#*HARD, LSW3<R1> ; Is this a real line? 
3* ; Br if not 

*» Disable interrupts *» 

/Does this line need input char processing? 

Br if not 

; Are me doing processing now? 

Br if yes 



#*NDICP>LSW10(R1) 
2* ; 

#*ICPFK, LSWIO(RI) 

2* i 



001: 



052761 OOOOOOG OOOOOOG 



001132 

001140 042761 OOOOOOG OOOOOOG 

001146 010104 

001150 004771 OOOOOOG 

001154 042761 OOOOOOG OOOOOOG 



001162 

001170 062701 000002 

001174 020127 OOOOOOG 

001200 101732 



001202 105037 OOOOOOG 



This line does need input character processing 

BIS #*ICPFK^ L3WiO<Ri )i i > Set flag saying processing taking place 

ENABL ; *■«• Enable interrupts ** 

BIC #*NDICP/ LSW10<R1 ) J Say input character processing has been done 

MOV Ri,R4 jGet line index number in R4 also 

CALL @LINIR(R1) iCall input processing routine for line 

BIC #*ICPFK, LSW10<R1 ); Say no longer doing input processing 

See if there are more lines to check 

i ** Enable interrupts ** 
; Get next line index number 
; Have we done all lines? 
< Loop if more to service 

Say fork level input processing is finished 

CLRB @#CDIFLG i Say input processing finished 

Finished 



2*: 


ENABL 




3*: 


ADD 


#2, Rl 




CMP 


R 1 . #LSTHL 




BLOS 


1* 



001206 012604 
001210 012601 
001212 000207 



MOV 
MOV 
RETURN 



(SP)+, R4 
(SP)+, Rl 



r 
c 
c 
< 
i 
< 
f 
i 
i 
i 
( 
€ 

i 
I 

I 

( 

i 
i 
< 



i 
I 
f 
I 
t 
c 
I 
f 

< 

I 

i 
i 



TSTIOX - 
GOTXOF - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 

24 
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— Process received XOFF character 



sBTTL GOTXOF 



Process received XOFF character 



GOTXOF is called uihen tue receive an XOFF (ctrl-S) character. 
It suspends transmission. 

Inputs: 
R4 = Line index number. 



001214 010146 
001216 010401 



001220 052761 OOOOOOG OOOOOOG 



001226 016100 OOOOOOG 
001232 004770 OOOOOOG 



001236 012601 
001240 000207 



GOTXOF: MOV 
MOV 



R1.-<SP) 
R4, Rl 



i Carry line index number in Rl 
Set flag saying transmission is to be suspended 

BIS #*CTRLS, LSW3<R1); Set flag saying ctrl-S received 
Call device-dependent routine to stop the transmitter 



MOV 
CALL 

Finished 

MOV 

RtrURN 



LCDTYP<R1 ). RO » Get comm device type code 
eCDSTDP(RO) J Stop the transmitter 



(SP)+, Rl 



i 



i 
I 
I 

t 

i 
1 
€ 
4 

i 



C 
c 

4 
I 



c 

c 



(bflUX • 
GOT X ON • 

1 

P 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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Process received XON character 






Process received XON character 
GOTXON is called when we receive an XON (ctrl-Q) character. 



Inputs: 
R4 = Line index number. 



001242 010146 
001244 010401 



001246 042761 OOOOOOG 0000000 



001254 016100 0000000 
001260 004770 OOOOOOG 



001264 012601 
001266 000207 



GOTXON: MOV 
MOV 



Rl, -(SP) 
R4, Rl 



i Get line index number to Rl 
Clear flag that says output is suspended 

BIC #*CTRL3.LSW3<R1); Cancel control~3 output suspension 
Call routine to restart output to the line 



MOV 
CALL 

Finished 



LCDTYP<R1 ), RO i Get device type code 

@CDSTRT(RO) iCall routine to start transmitter 



MOV ( SP ) +, R 1 
RETURN 



I 

i 
i 

i 
i 
I 
i 

# 
( 

€ 

t 

4 
t 
I 

f 
I 



I 
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TRNSTR — Start line transmitter 

. SBTTL TRNSTR — Start line transmitter 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 
")=; 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



TRNSTR is called each time a character is added to a terminal's 
output buffer to try to start the transmitter for the terminal. 
All registers are preserved. 



Inputs: 
Rl = Virtual line index number 



001270 010046 
001272 010146 
001274 016101 



001300 032761 
001306 001014 



0000000 



0000000 OOOOOOG 



TRNSTR: MOV 
MOV 
MOV 



RO, -<SP) 
R1,-(SP) 
LNPRIM(Rl), Rl 



001310 032761 OOOOOOC 0000000 

001316 001010 

001320 032761 0000000 OOOOOOG 

001326 001404 



001330 016100 OOOOOOG 
001334 004770 OOOOOOG 



001340 012601 
001342 012600 
001344 000207 



; Get primary line index number 

Never try to start output for a detached job 

BIT #*DETCH, LSW(Rl) i Is this a detached job? 

BNE 9* i Br if yes — No output to detached jobs 

Don't start output if output has been suspended. 

BIT #<*CTRLS!fDEAD>, LSW3<Rl)i Line suspended or dead? 

BNE 9* iBr if yes 

BIT #*HARD. LSW3<R1 ) jIs hardware connected to this line? 

"ii^Qi 9* ; Br if not 

Line is able to receive a character. 

Call device-dependent routine to start output. 

/Get comm device type index 

;Call routine to start transmitter for line 



9*: 



MOV 
CALL 


LCDTYP(Rl), RO 
eCDSTRT<RO) 


Finished 




MOV 
MOV 
RETURN 


(SP)+,R1 
(SP)+, RO 



c 
I 
t 

I 

€ 

€ 
I 
( 
t 

€ 

I 

t 



( 



c 
t 
f 
( 
I 

€ 

I 

I 
€ 



► I 



TSTIOX 
NEDCHR 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

lA 

17 

18 

19 

20 

21 

22 

23 

24 

2t> 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

30 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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NEDCHR is called from a terminal device driver to get the 
next char that is to be sent to the terminal. 

Inputs: 
R4 = Physical line number for which a character is being gotten. 

Outputs: 
C-flag cleared ==> Another character is available. 
C-flag set ==> No more characters available. 
RO = Character to send if C-flaq cleared. 



001346 010146 
001350 010246 
001352 010446 



001354 032764 OOOOOOG OOOOOOG 

001362 001406 

001364 042764 OOOOOOG OOOOOOG 

001372 112700 OOOOOOG 

001376 000556 



NEDCHR: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R4, -<SP) 



See if ui(s need to send an XOFF (ctrl-S) 

BIT #«SXOFF, LSW10<R4);Do we need to send an XOFF? 

JBEQ 12* ;Br if not 

BIC #*SXOFF, L.SW10<R4)i Clear flaq saying XOFF needed 

MOVE #CTRLS, RO J Get ctrl-S character 

BR 15* i Go send it 

See if we need to send an XON <ctri-Q) 



001400 032764 OOOOOOG OOOOOOG 12*: BIT 

001406 001406 BEQ 

001410 042764 OOOOOOG OOOOOOG BIC 

001416 112700 OOOOOOG MOVE 

001422 000544 BR 



#*SX0N>LSW10<R4)j Do we need to send an XON? 

13* J Br if not 

#*SXON, LSWiO<R4); Clear flag saying XON needed 

#CTRLQj RO ; Get ctrl-Q character 

15* i Go send it 



001424 116401 OOOOOOG 



001430 032761 OOOOOOG OOOOOOG 

001436 001540 

001440 032764 OOOOOOG OOOOOOG 

001446 001134 



001450 016402 OOOOOOG 

001454 001414 

001456 016200 OOOOOOG 

001462 005262 OOOOOOG 

001466 112000 

001470 001110 

001472 016264 OOOOOOG OOOOOOG 

001500 004767 000246 

001504 000761 



Get virtual line number to Rl 

13*: MOVE LNMAP<R4),R1 i Get virtual line number for this phys line 

Determine if output to line is suspended due to Control-S character 

BIT #*INIT, LSW<R1) i Has line been initialized yet? 

BEQ 8* i Br if line is not initialized 

BIT #*CTRLS/ LSW3<R4)/ Is output to line suspended? 

BNE 8* i Br if yes 

See if the next character is coming from a message buffer 

2*: MOV LMSGBF<R4)* R2 ils output coming from a message buffer? 

BEQ 3* ; Br if not 

MOV SB*PNT<R2), RO ; Get address of next character in buffer 

INC SB*PNT<R2) ; Advance the character pointer 

MOVE <R0)+, RO ;Get the character from the buffer 

BNE 5* > Br if we got a character to send 

MOV SB*LNK<R2), LMSGBF<R4) » Remove this element from list for job 

CALL SNDFRE ; Free the message buffer 

BR 2* ; See if there is another to send 

i 

i See if line is cross connected to a CL line 



( 

I 
f 



» 



< 



» I 



c 
f 
< 

I 
I 

{ 
( 



TSTIOX 
NEDCHR 



59 
60 
61 
62 
63 
64 
65 
66 
67 
69 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

ai 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



-- Relocatable terminal MACRO V05. 05 
— Get next char for device driver 
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001506 
001512 
001514 
001520 
001524 
001526 



001530 
001534 
001540 



001542 
001550 
001552 
001556 
001560 
001566 
001570 
001574 
001576 
001604 
001606 
001612 
001614 
001616 
001624 
001626 
001634 



001640 
001644 
001660 
001662 
001670 
001674 
001700 
001702 
001706 



001712 
001716 
001720 
001722 
001724 
001726 
001730 



016402 
002406 
016201 
004767 
103072 
000504 



016100 
166100 
001477 



026127 
101433 
005761 
001004 
026127 
101424 
020027 
103410 
026127 
001015 
020027 
003012 
000404 
026127 
101005 
052761 
005237 



112200 

005261 
020261 
103402 
016102 
010261 



016402 
001406 
012201 
001404 
120001 
001374 
000301 



OOOOOOG 

0000000 
177056 



110V 


LXCL<R4), R2 


SLT 


14* 


MOV 


CL*LIX(R2), Rl 


CALL 


SILFET 


BCC 


5* 


BR 


8* 



OOOOOOG 
OOOOOOG 



11*: 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000005 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 6*: 

OOOOOOG OOOOOOG 7*: 
OOOOOOG 



3$: MOV LXCL<R4)»R2 ils line cross connected to a CL line? 

; Br if not 

;Get # of line CL unit is using 

i Try to get char from input silo 

; Br if got a character 

i No character to transmit 
> 
i Determine how many characters are in terminal output buffer for line 

14*: MOV L0TSIZ<R1). RO .Get size of output character buffer 
SUB LOTSPC<Ri )* RO ; Determine number of characters 
BEG 8* ; Br if there are no characters in output buf 

If we are about to run out of characters* see if we need 
to give the job an execution priority boost 

ready in a high-priority state? 

no need to boost priority 
nteractive job? 

^active high priority state? 

ly in high prio state 

,y about to run out of chars? 

Definitely give boost 
liting for output buffer space? 

to reactivation point? 

reactivate user 
a run or luait state? 
t state — Don't boost 
cause clock int to boost priority 
job scheduler processing 

Send next character from normal terminal output buffer 



CMP 


LSTATE<R1). 


#S*OTFN ; Is job al 


BLOS 


10* 


.; Br if yes — 


TST 


LITIME(Rl) 


ils th is an i 


BNE 


11* 


.; Br if yes 


CMP 


L3TATE(R.i>> 


#S*OrLO i Non-inter 


BLOS 


10* 


) Br if alread 


CMP 


RO, #5. 


J Are we reall 


BLO 


6* 


; Br af yes — 


CMP 


LSTATE<R1)> 


#S*OTWT .ils job ma 


BNE 


10* 


; Br if not 


CMP 


RO, #OTRASZ 


iAre uje down 


BGT 


10* 


i Br if not 


BR 


7* 


; Br if yes — 


CMP 


LSTATE(Rl), 


#S**RUN 3 Is job in 


BHI 


10* 


i Br if in uiai 


BIS 


#*SOTFN, LSW7<R1); Set flag to 


INC 


@#NEDSOT 


i Say we need 



016102 OOOOOOG 



1 0* : 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



4*: 



MOV 

TTMAP 

MOVB 

UNMAP 

INC 

CMP 

BLO 

MOV 

MOV 



L0TPNT(R1),R2 

(R2)+, RO 

LOTSPC(Rl) 
R2, L0TEND(R1 ) 
4* 

L0TBUF<R1).R2 
R2. LDTPNT<R1) 



Get pointer to next character in buffer 

Map kernel PAR 6 to TT buffer for job 

Get next character from terminal buffer 

Remap kernel PAR 6 

Say there is one more char space in buffer 

Did uje just go beyond end of buffer? 

Br if not 

Wrap around to front of buffer 

Save updated buffer pointer 



Ther 
See 



e is a character to send 

if we need to do anu character translation. 



OOOOOOG 



5*: 
.16*: 



MOV LCXTBL<R4),R2 

BEQ 15* 

MOV (R2)-*>R1 

BEQ 15* 

CMPB RO. Rl 

BNE 16* 

SWAB R 1 



Is there a character translation table? 

Br if not 

Get entry from translation table 

Br if hit end of table 

Compare character with that in table 

Br if no match 

Get replacement char to low order 



4 
< 
I 
I 

C 

c 

C 

€ 

t 

i 

I 

I 

I 

i 

I 

I 

{ 
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116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
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— Get next char for device driver 

HQvB P.liRQ ! Get repiacement character 

We have a character to send in RO 
15*: CLC ;Siqnal success on return 



001734 000241 
001736 000401 






001742 012604 

001744 012602 

001746 012601 

001750 000207 



CLC 
BR 



9* 



No characters left to send 

8$: SEC 

Finished 

9f; MOV (SP>+, R4 

MOV (SP)+, R2 

MOV (SP)+, Rl 
RETURN 



i Signal failure on return 



i 
i 

i 
f 

< 

( 
( 

€ 

i 
1 

4 

i 



i 
i 



i 
i 
c 
c 



f 



c 
« 
i 
I 
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i 
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i 
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— Get next char for device driver 



1 
p 

3 
4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 
27 



001752 



001752 013762 0000000 OOOOOOG 
001760 010237 OOOOOOG 
001764 005237 OOOOOOG 



001770 005237 OOOOOOG 



001774 000207 



SNDf-RE is called to return a system message buffer to the free list. 

Inputs: 
R2 = Address of system message buffer to be freed. 
Interrupts must be disabled when this routine is called. 

. GLOBL SNMSHD^ SB*LNK.- N.i^UMB,- MBFFLG 

SNDFRE: 

i Return buffer to free li&t. 

MOV e#SNMSHD, SB*LNK<R2); Add buffer to free list 

MOV R2, S#SNMSHD 

INC e#NMUMB > Increment # free message buffers 

Set flag saying a message buffer has been freed so clock routine 
will restart any waiting jobs. 



INC 

i-' i n 1 B h e d 

RETURN 



@#MBFFLG 



; Set flaq for clock routine 
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— Clock driven output character processing 



c 



. oo ! ! !_ ujuuRTiN — wiDCK u r 1 V e F! output ciiai-act-er p"rDce56in< 

CDOirfN is called on every clock tick (50/60 Hz) to do clock 
driven output character Drocessinq. 



001776 010146 

002000 005037 0000000 



002004 005737 0000000 

002010 001404 

002012 005037 OOOOOOG 

002016 004737 OOOOOOG 



CDORTN: MOV 
CLR 



R 1 , - ( SP ) 
@#NEDCDO 



Do processing for CL line'& 



TST 


e#NEDCLO 


I3EQ 


1* 


CLR 


@#NEDCLO 


CALL 


@#CLTIMR 



; Say don't need output processing 



; Need CL output processing? 

i Br if not 

; Reset output-processing-needed flag 

jCall routine for CL lines 



Do output character processing for DHll and DHVll lines 



002022 012701 0000000 1*: 

002026 032761 OOOOOOG OOOOOOG 2*: 

002034 001415 

002036 026127 OOOOOOG OOOOOOG 

002044 001404 

002046 026127 OOOOOOG OOOOOOG 

002054 001005 

002056 042761 OOOOOOG OOOOOOG 3«: 

002064 004737 OOOOOOG 

002070 162701 000002 4*: 

002074 003354 



MOV 

BIT 

BEQ 

CMP 

BE<J 

CMP 

BNE 

BIC 

CALL 

SUB 

BGT 



#LSTHL, Rl ; Get index to last line 

#*DHCDO. LSW10<R1 ) J Is clock-driven processing needed for line? 

4* i Br if not 

LCDTYP(Rl), #CDX*VHi Is this a DHVll line? 

3* j Br i f yes 

LCDTYP(R1 ), #CDXfDHj Is this a DHll line? 

4* i Br if not 

#*DHCDO.. LSWiO<Rl ); Clear processing-needed flag for line 



@#DHTIMR 
#2, Rl 
2* 



002076 105037 OOOOOOG 



002102 012601 
002104 000207 



Say processing is finished 

CLRB @#CDOFLG 

Finished 

MOV ( SP ) +, R 1 
RETURN 



iCall clock driven routine for DH 
j Get next line index number 
> Loop if more lines to check 



Say processing is finished 



i 
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Clock driven input character processing 



rTisj — Ciiouk diiveii iiipuii- chaf-actei- prucesisiiig 



CDORTN is called on every clock tick <50/60 Hz) to do clock 
driven input character processing. 



002106 
002110 
002112 



010146 
010446 
005037 



CDIRTN: 



0000000 



MOV 
MOV 
CLR 



Rl, 
R4, 



(SP) 
•<SP> 



@#IMEDCDI 



Say don't need input processing 



002116 012701 000002 



^y*'' J.ww(J \t vj iit ^ t VA\_K u.h.tv.ir *j.««i_ 

MOV #2/Rl ; Start with line 1 

See if this routine needs input character processing 



002130 
002132 
002140 
002146 
002150 
002156 



002160 
002166 
002174 
002202 
002204 
002210 
002216 



002224 
002232 
002236 
002242 



032761 

001440 

032761 
001423 
032761 

001017 



052761 

042761 
010104 
004771 
042761 
042761 



OOOOOOG 0000000 1*: 



0000000 
OOOOOOG 



OOOOOOG 
OOOOOOG 



BIT 

BEG 

DISABl 

BIT 

BEG 

BIT 

ewE 



#*HARD, LSW3<Ri) 

3* 



#*NDICP, LSW10(Rl)i 

2* 

#*ICPFK, LSWiO(Hl); 

2* 



Is this a real line? 

Br if not 

;;*•«■ Disable interrupts *■■«■ 

iJiDoes this line need input char processing? 

> i Br if not 

; j ; Are we doing processing now? 

> ; Br if yes 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 



?*: 



Thib line does need input character processing 

BIS #*ICPFK, LSWIO(RI); i i Set flag saying processing taking place 

ENABL ; *# Enable interrupts «■* 

BIC #*NDICP> LSW10(R1 )> Say input character processing has been done 

MOV R1,R4 ; Get line index number in R4 also 

CALL @LINIR(R1) *Call input processing routine for line 

BIC #*ICPFK. LSW10<R1 ); Say no longer doing input processing 

BIC #*DNICP, LSWIO^RI ); Say input processing done for clock cycle 

See if there are more lines to check 



062701 

020127 
101727 



000002 
OOOOOOG 



002244 105037 OOOOOOG 



002250 
002252 
002254 

etected ; 



012604 
012601 
000207 
000001 




ENABL i ** Enable interrupts ** 

3*: ADD #2/Rl i Get next line index number 

CMP Ri,#LSTHL i Have we done all lines? 

BLOS 1* ; Loop if more to service 

Say clock driven input processing is finished 

CLRB @#CDIFLG j Say clock driven input processing finished 

Finished 

MOV <SP)+. R4 

MOV ( SP ) +. R 1 
RETURN 
. END 



**# Assembler statistics 



Work file reads: 
Work file writes: 
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CDIRTN — Clock driven input character processing 



Size of core pool 
Operating system 



■^ A 1 CI Cj C => / 



17920 Words < 70 Pages) 
RT-ll 



Elapsed time: 00:00:12.37 

DK: TSTIOX, LP: TSTIOX=DK: TSTIOX/C/N: SYM 



c 
i 
i 

i 
4 
( 

< 

c 
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i 
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* 
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TSTIOX - 


- Relocc 


itable terminal MACRO 


V05. 05 


Cross re 


f erence 


table (CREF 


V05. 05) 






fBBIT 


1-26 


5-35 








*CTRLS 


1-24 


10-14 


11-13 


12-21 




*DEAD 


1-29 


12-21 








*DETCH 


1-24 


12-16 








«DHCDO 


1-26 


15-19 


1 5-25 






*DNICP 


1-31 


5-78 


5-84 


1 6-32 




*HARD 


1-24 


9-14 


12-23 


16-16 




*HISTP 


1-30 


7-35 


7-41 






*ICPFK 


1-29 


5-00 


9-19 


9-24 




«IITIM 


1-26 


5-16 








*INIT 


1-25 


13-40 








*NDICP 


1-28 


5-72 


5-74 


9-17 




*PAGE 


1-27 


5-50 


5-61 






*RBRK 


1-28 


5-22 








*SOTFN 


1-27 


13-90 








*SXOFF 


1-26 


13-20 


13-22 






*SXON 


1-25 


13-28 


13-30 






CDIFLG 


1-28 


8-52 


8-54* 


9-40* 




CDIRTN 


3-17 


16-6« 








CDOFLG 


1-23 


1 5~32^^ 








CDORTN 


3-16 


15-6tt 








CDSTOP 


1-30 


10-19 








CDSTRT 


1-30 


11-18 


12-30 






CDSXOF 


1-22 


6-38 








CDSXON 


1-22 


7-43 








CDX *DH 


1-25 


1 5-23 








CDX*VH 


1-22 


15-21 








CIPFRK 


8-66 


9-5# 








CL*LIX 


1-20 


13-61 








CL*OPT 


1-29 


5-30 


5-32 


6-34 




CLTIMR 


1-22 


15-14 








C0*8BT 


1-24 


5-32 








CO*BNI 


1-31 


5-30 








CO$BNO 


1-31 


6-34 








CTRLQ 


1-22 


5-57 


13-31 






CTRLS 


1-21 


5-46 


13-23 






DHTIMR 


1-27 


15-26 








FASTIN 


1-30 


5-76 








FORK 


1-28 


8-64 








FP*CDI 


1-28 


8-65 








FRHERR 


1-25 


5-20 








eOTXOF 


5-52 


10~9# 








GOTXON 


5-63 


11 -8# 








ilMlNT 


3-10 


4-6# 








INITFL 


1-24 


5-82 








INTEN 


1-28 


8-59 








INTPRI 


1-23 


8-27 


8-31* 


S~40« 




IRINGP 


5-68 


6-10# 








KPAR6 


1-31 


13-96 


13-96« 


13-98*- 




LCDTYP 


1-21 


6-37 


7-42 


10-18 




LCLUNT 


1-21 


5-28 


6-32 






LCXTBL 


1-20 


7-47 


13-108 






LHIRBA 


1-24 


7-18 


7-37 






LHIRBB 


1-23 


6-21 


7-28 






LHIRBC 


1-24 


6-27 


7-39 






LHIRBE 


1-23 


6-19 


7-26 





( 
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13-42 
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Cross reference table (CREF V05. 05) 



LHIRBG 


1-24 


7-24 


7-29* 




















LHIRBP 


1-23 


6-17 


6--22* 




















LHIRBS 


1-23 


6-15 


6-23* 


6-27 


6-30 


7-ia 


7-30* 


7-38 










LINIR 


1-21 


9-28 


16-30 




















LINNUM 


1-32 


4-15 


4-20* 




















LITIME 


1-26 


13-77 






















LMSGBF 


1-22 


13-47 


13-53* 




















LNMAP 


1-23 


13-36 






















LNPRIM 


1-30 


12-12 






















LOTBUF 


1-21 


13-102 






















LOTEND 


1-27 


13-100 






















LOTPNT 


1-22 


13-95 


13-103* 




















LOTS I Z 


1-21 


13-68 






















LOTSPC 


1-31 


13-69 


1 3-99* 




















LSTATE 


1-30 


13-75 


13-79 


1 3-83 


13-88 
















LSTHL 


1-27 


9-35 


15-18 


i 6-38 


















LSW 


1-25 


12-16 


13-40 




















LSWIO 


1-30 


5-22*- 


5-72 


5-74* 


5-7S 


5-80 


5-84* 


7-35 


7-41* 


9-17 


9-19 


9-24* 




9-26* 


9-29* 


13-20 


13-22* 


13-28 


13-30* 


15-19 


15-25* 


16-19 


16-21 


16-26* 


16-28* 




16-31* 


16-32* 






















LHW2 


1-29 


5-35 


5-bO 


6-fc 1. 


















LBW3 


1-26 


9-14 


10-14* 


11.-13* 


12-21, 


12-?3 


13 -.'52 


16-1.6 










LSW 5 


1-26 


5-16* 






















LSU7 


1-25 


13-90* 






















LTTPAR 


1-31 


13-96 






















LXCL 


1-22 


13-59 






















MAPHLD 


3-22# 


13-96* 


13-98 




















MBFFLG 


1-28 


14-10 


14-23* 




















MUXNUM 


1-32 


4-35 


4-36* 




















MXLNT 


1-32 


4-43 






















MXRBUF 


1-32 


4-38 






















NEDCDI 


1-21 


5-75* 


16-8* 




















NEDCDO 


1-21 


15-7* 






















NEDCHR 


3-15 


13-14# 






















NEDCLO 


1-29 


15-11 


15-"i3* 




















NEDSOT 


1-29 


13-91* 






















NMUMB 


1-27 


14-10 


14-18* 




















OTRASZ 


1-23 


13-85 






















OVRHC 


1-20 
























PSW 


1-31 


9-16* 


9-25* 


9-33* 


16-18* 


1 6-27* 


1 6-36* 












RBR 


1-32 


4-25 






















RCVDON 


1-32 


4-23 






















RDINT 


1-32 


4-22 


4-26 


4-29 


















R3R 


1-32 


4-22* 


4-23 


4-26* 


4-29* 
















S**RUN 


1-26 


13-08 






















S*OTFN 


1-2S 


13-75 






















S*OTLO 


1-27 


13-79 






















S*OTWT 


1-25 


13-83 






















SB*LNK 


1-27 


13-53 


14-10 


14-16* 


















SB*PNT 


1-29 


13-49 


1 3-50* 




















SILFET 


3-12 


7-13# 


13-62 




















SNDFRE 


3-18 


13-54 


14-12M 




















SNMSHD 


1-29 


14-10 


14-16 


14-17* 


















TRNSTR 


3-14 


12-10# 






















TSTIOX 


1-16 


3-6# 


3-10 


3-11 


3-12 


3-13 


3-14 


3-15 


3-16 


3-17 


3-18 




TTIFRK 


3-24# 


5-85* 


8-49 


8-51* 
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Cross reference table (CREF V05. 05) 



TTINPT 3-11 4-27 4-46 
TTRSAV 3-13 4-10 e-19# 
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Cross reference table <CREF V05. 05) 

16-18 
9-33 16-27 16-36 



DISABL 


2-6# 


9-16 


ENABL 


2-12# 


9-25 


OCALL 


2-18# 




TTMAP 


2-48# 


13-96 


TTMAPX 


2-39# 




UNMAP 


2-53# 


13-98 


UNMAPX 


2-45# 








c 

€ 



I 

1 



